home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Linux Cubed Series 3: Developer Tools
/
Linux Cubed Series 3 - Developer Tools.iso
/
devel
/
lang
/
lisp
/
stk-3.002
/
stk-3
/
STk-3.1
/
Contrib
/
STk-wtour
/
lessons
/
bind1.stk
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
1995-12-12
|
244 b
|
10 lines
;; Event binding
(entry '.e1 :relief "sunken")
(pack .e1 :expand #t :fill "x")
(bind .e1 "<Tab>" (lambda ()
(display "You pressed Tab!\n")))
(bind .e1 "<ButtonPress-2>" (lambda ()
(display "You pressed Button 2!\n")))